home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr35
/
email_10.zip
/
EMAIL.PPS
< prev
next >
Wrap
Text File
|
1993-04-19
|
2KB
|
52 lines
; **************************************************************
; * Email v 1.0 *
; * Written in PPL for PCBoard *
; * Designed By: Gary Smith *
; * Began development: 04-17-93 *
; * Ended development: 04-17-93 <grin> *
; **************************************************************
; This short and simple PPE will show your users email address,
; ie, thier name with '.' added into a file called EMTEXT that
; should reside in the PPE directory.
;
; If found, the file named EMHELP will be displayed to the user
; prior to showing the email address name. This can be used for
; instructions or whatever, The file must reside in the PPE dir.
;
; To run this file, I attach it to my NEWS file with the command
; of !h:\pcb\ppe\email.ppe
;
; Obviously you need to change the location of your files above.
STRING my_new_name
STRING mail_address
STRING text_line
; Add what ever text you want, it will be centered on the screen, Don't
; forget the length should not exceed about 70 characters.
text_line = "Your InterNet EMAIL address is "
; *IMPORTANT* change this to your address, not mine!
mail_address = "@random.wyvern.com"
;* If exists show the EMHELP file
if (exist(ppepath()+"EMHELP")) dispfile ppepath()+"EMHELP",GRAPH+SEC+LANG
;* Replace the spaces in the name with a '.', change to lower case
my_new_name = REPLACE(LOWER(U_NAME())," ", ".")
;* Assign string to OPTEXT variable for display. Remember @COLOR does not work
OPTEXT SPACE((75-((LEN(text_line)+LEN(mail_address))+LEN(my_new_name)))/2)+text_line+my_new_name+mail_address
;* Check for the existance and show EMTEXT file (Contains the display file)
FRESHLINE
if (exist(ppepath()+"EMTEXT")) dispfile ppepath()+"EMTEXT",GRAPH+SEC+LANG
END